Komputer for Alle 1998 #6/1998 CD 6 (Gul).iso/06.dir/00413.ls

Text File | 1996-02-08 | 4.6 KB | 226 lines

on Dest1Star1
  global gMovie, gCraftLine
  set gCraftLine to 2
  set gMovie to "1S1.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov1" then
    go(the frame - 1)
    exit
  else
    if the frameLabel = "moov2" then
      closePanel()
    end if
    go("Monitor Movie")
  end if
end

on Dest1Star2
  global gMovie, gCraftLine
  set gCraftLine to 3
  set gMovie to "1S2.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov1" then
    go(the frame - 1)
    exit
  else
    if the frameLabel = "moov2" then
      closePanel()
    end if
    go("Monitor Movie")
  end if
end

on Dest1Star3
  global gMovie, gCraftLine
  set gCraftLine to 4
  set gMovie to "1S3.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov2" then
    go(the frame - 1)
    exit
  else
    go("Screen Movie")
  end if
end

on Dest2Star1
  global gMovie, gCraftLine
  set gCraftLine to 5
  set gMovie to "2S1.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov2" then
    go(the frame - 1)
    exit
  else
    go("Screen Movie")
  end if
end

on Dest2Star2
  global gMovie, gCraftLine
  set gCraftLine to 6
  set gMovie to "2S2.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov1" then
    go(the frame - 1)
    exit
  else
    if the frameLabel = "moov2" then
      closePanel()
    end if
    go("Monitor Movie")
  end if
end

on Dest2Star3
  global gCraftLine, gCraftBefore
  set gCraftBefore to 0
  set gCraftLine to 7
  ClearPuppets()
  set the timeoutScript to "nothing"
  go("60")
end

on Dest2Star4
  global gMovie, gCraftLine
  set gCraftLine to 8
  set gMovie to "2S4.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov1" then
    go(the frame - 1)
    exit
  else
    if the frameLabel = "moov2" then
      closePanel()
    end if
    go("Monitor Movie")
  end if
end

on Dest2Star5
  global gMovie, gCraftLine
  set gCraftLine to 9
  set gMovie to "2S5.MOV"
  set lCurrentMov to the name of cast the castNum of sprite 2
  if lCurrentMov = gMovie then
    exit
  end if
  CleanMovies()
  if the frameLabel = "moov2" then
    go(the frame - 1)
    exit
  else
    go("Screen Movie")
  end if
end

on Dest7Star1
  global gCraftLine, gCraftBefore
  set gCraftBefore to 0
  set gCraftLine to 14
  ClearPuppets()
  set the timeoutScript to "nothing"
  go("73", "07.dir")
end

on Dest7Star2
  global gCraftLine, gCraftBefore
  set gCraftBefore to 0
  set gCraftLine to 15
  ClearPuppets()
  set the timeoutScript to "nothing"
  go(1, "07.dir")
end

on Dest7Star3
  global gGoBackFrame, gGoBackMovie, gCraftLine, gCraftBefore
  set gGoBackFrame to the frame
  set gGoBackMovie to the movie
  set gCraftBefore to 0
  set gCraftLine to 16
  ClearPuppets()
  set the timeoutScript to "nothing"
  go("entropy", "09.dir")
end

on Dest7Star4
  global gCraftLine, gCraftBefore
  set gCraftBefore to 0
  set gCraftLine to 17
  ClearPuppets()
  set the timeoutScript to "nothing"
  go("72", "07.dir")
end

on NewDest lDest
  global gLastRolledOn, gMoviePlayed, gCastOfSprite15, gTimeCounter, gDestLabel
  if string(gDestLabel) = lDest then
    exit
  end if
  set gDestLabel to value(lDest)
  if the frameLabel = "Moov2" then
    set the movieTime of sprite 2 to 0
    set the movieRate of sprite 2 to 0
    set the castNum of sprite 2 to the number of cast "blankS.MOV"
    updateStage()
    puppetSprite(2, 0)
    closePanel()
  end if
  if the frameLabel = "Moov1" then
    set the movieTime of sprite 2 to 0
    set the movieRate of sprite 2 to 0
    set the castNum of sprite 2 to the number of cast "blankM.MOV"
    updateStage()
    puppetSprite(2, 0)
  end if
  TurnOffMovies()
  puppetSprite(28, 0)
  TurnOffRollovers()
  puppetSprite(15, 0)
  updateStage()
  set lFrame to "Dest" && lDest
  go(lFrame)
  updateStage()
  puppetSprite(28, 1)
  set gCastOfSprite15 to the name of cast the castNum of sprite 15
  put gCastOfSprite15
  set gLastRolledOn to 0
  set the timeoutScript to "nothing"
  repeat with i = 1 to 4
    go(the frame + 1)
    wait(0.29999999999999999)
  end repeat
  set gTimeCounter to 2
end

on wait lamount
  startTimer()
  repeat while the timer < (lamount * 60)
    nothing()
  end repeat
end